home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / system / startppp.000 / startppp / Startppp_v0.80 / Main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-08-15  |  1.9 KB  |  48 lines
  1. /*
  2.  * Startppp
  3.  *
  4.  * Copyright (C) 1995  Matthias Ott 
  5.  *  (msott@cip.informatik.uni-erlangen.de)
  6.  *
  7.  * This program is free software; you can redistribute it and/or
  8.  * modify it under the terms of the GNU Library General Public
  9.  * License as published by the Free Software Foundation; either
  10.  * version 2 of the License, or (at your option) any later version.
  11.  *
  12.  * This program is distributed in the hope that it will be useful,
  13.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15.  * Library General Public License for more details.
  16.  *
  17.  * You should have received a copy of the GNU Library General Public
  18.  * License along with this program; if not, write to the Free
  19.  * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. */
  21.  
  22. #include "tk.h"
  23.  
  24. #include "Time.h"
  25. #include "Modem.h"
  26.  
  27. /*
  28.    **    Function name : Startppp_Init
  29.    **
  30.    **    Description : creates the new commands
  31.    **    Input :
  32.    **    Output :
  33. */
  34. int Startppp_Init(Tcl_Interp *interp)
  35. {
  36.   Tcl_CreateCommand (interp, "gettime", GetTime, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  37.   Tcl_CreateCommand (interp, "getshowtime", GetShowTime, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  38.   Tcl_CreateCommand (interp, "onlineshowtime", OnlineShowTime, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  39.   Tcl_CreateCommand (interp, "showdifftime", ShowDiffTime, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  40.   Tcl_CreateCommand (interp, "getpartzone", GetPartZone, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  41.   Tcl_CreateCommand (interp, "seticonname", SetIconName, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  42.   Tcl_CreateCommand (interp, "modemclose", ModemClose, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  43.   Tcl_CreateCommand (interp, "dialproc", DialProc, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  44.   Tcl_CreateCommand (interp, "killpid", KillPid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
  45.   return TCL_OK;
  46. }
  47.  
  48.